home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / boymks5e.zip / TCOMM.BSC < prev    next >
Text File  |  1991-12-16  |  2KB  |  46 lines
  1. \\ TCOMM is a type of Bulletin Board System which is quite popular in
  2. \\ the Washington, D.C. area and is quickly spreading across the country.
  3. \\
  4. \\ This script automates TComm logons.
  5. \\ You must set the following shortcut macros in BOYAN Configuration Area M:
  6. \\  \! = Macro # 111 = Your first name
  7. \\  \@ = Macro # 112 = Your last name
  8. \\  \# = Macro # 113 = Your password
  9.  
  10.  
  11. \\ If you make any significant improvements to this script, please feel
  12. \\ free to share them with others (or with me!)  Thanks.  -Justin Boyan
  13.  
  14.  
  15. |LOGON
  16. \DM[CONNECTED TO TCOMM SYSTEM!]{  \\ Send one carriage return
  17. \BL[QUEST]           \\ This calls the "QUESTIONS" block as a subroutine.
  18. \bl[files]               \\files script
  19. \DM[LOGON COMPLETE.]     \\ When done, display message on screen.
  20.  
  21.  
  22.  
  23. |QUEST         \\ This block answers TComm's log-on questions.
  24. \\WP[1]                                  \\ waits for the next TComm prompt
  25. \IF+Press ENTER to continue[{]          \\ These \IF commands test to see
  26. \IF+number one[N{]                      \\ which prompt it is, and respond
  27. \IF+red background[Y{]                  \\ appropriately.  The response is
  28. \IF+Color Graphics[Y{]                  \\ in square brackets.
  29. \IF+dash on the right[Y{]               \\ The name and password prompts
  30. \IF+First & last name[\! \@{]           \\ respond by sending Shortcut
  31. \IF+password[\#{]                       \\ macros \! \@ (name) or \# (passwd).
  32. \IF+Strike a key when ready[{]          \\
  33. \IF+ANY KEY[{]                          \\
  34. \IF+Quit)[Q{]                           \\
  35. \IF+Main[\EB]                           \\ END BLOCK if reached "Main" Menu
  36. ~\pa[1]
  37. \GB[QUEST]                          \\ Circle around for next prompt...
  38.  
  39. |Files
  40. \IF+Main[F{]
  41. \IF+ommand[n{]
  42. \if+enu[n{]
  43. \if+ate[{]
  44. \if+hat[{]
  45. \GB[files]
  46.